Notes/Domino 6 and 7 Forum : RE: Ghost Rule?

Notes/Domino 6 and 7 Forum

RE: Ghost Rule?

RE: Ghost Rule?
Posted by ~Umberto Nongeroson on 2.Dec.03 at 09:36 PM using a Web browser
Category: Notes Client

Release: 6.0.2 CF2

Platform: Windows 2000

This is a bit more thorough than just removing the calendar profile however it will remove ALL rules...

Dim ThisDb As NotesDatabase
Dim Sess As New NotesSession
Dim CurDoc As NotesDocument
Dim DocColl As NotesDocumentCollection
Dim Profile As NotesDocument

Set ThisDb = Sess.CurrentDatabase

Set profile= ThisDb.GetProfileDocument("CalendarProfile")

profile.RemoveItem("$FilterFormula_0")
profile.RemoveItem("$FilterFormulaCount")
profile.save True,True
Set DocColl = ThisDB.AllDocuments
Set CurDoc = DocColl.GetFirstDocument
Do Until CurDoc Is Nothing
If CurDoc.IsProfile Then
Stop
End If
Set CurDoc = DocColl.GetNextDocument(CurDoc)
Loop